Option Explicit
Sub C_Sample007()
    Dim myRng               As Range
    Dim myAr(1 To 3, 1 To 5)    As Variant
    Dim i                   As Long
    Dim j                   As Long
    Dim k                   As Long
    k = 64                              'ǳư}C
    For i = 1 To 3
        For j = 1 To 5
            k = k + 1
            myAr(i, j) = Chr(k)
        Next
    Next
    Cells.Clear                         'xs檺M
    Set myRng = Range("A1:E3")          'Nxsd
    'ǳƨ즹
    myRng.Value = myAr
    Set myRng = Nothing                 '
End Sub

